<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(1)
dim title,author,content,act,id,email,visible
title=HTMLEncode(request.Form("title"))
If (title="") Then
historygoback("请填写标题")
End If 
author=HTMLEncode(request.Form("author"))
If author="" Then
author="匿名"
End If 
email=HTMLEncode(request.Form("email"))
If email="" Then
email="未填写"
End If 
content=HTMLEncode(request.Form("content"))
If (content="") Then
historygoback("请填写内容")
End If 
act=HTMLEncode(request.Form("act"))
id=HTMLEncode(request.Form("id"))
visible=HTMLEncode(request.Form("visible"))

If act="modifysave" Then
	conn.execute("update [c_record_comment] set title='"&title&"',author='"&title&"',email='"&email&"',content='"&content&"',visible="&visible&" where id="&id) 
	response.redirect("showmsg.asp?from=recordcomment_list.asp&msg=ModifySuccess")
End If 
%>